home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4385 / custom_2 / fswitch / onthefly.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  6KB  |  39 lines
  1. 10 REM Font Switching on the fly.
  2. 100 VARNAME
  3. 110 ERASE
  4. 120 ERASE
  5. 130 UNKNOWN OP: 0x3A
  6. 140 VARNAME
  7. 150 UNKNOWN OP: 0x3A
  8. 160 VARNAME
  9. 170 PRINT
  10. 180 VARNAME
  11. 190 PRINT
  12. 20 REM 3 Different fonts will be used to create this effect.
  13. 200 VARNAME
  14. 210 ERASE
  15. 220 STOP
  16. 230 FOR
  17. 240 VARNAME
  18. 250 IF
  19. 260 IF
  20. 270 IF
  21. 280 IF
  22. 290 PRINT
  23. 30 REM (Four fonts could be used if your Low Res font is different from your            medium res font)
  24. 300 NEXT
  25. 310 PRINT
  26. 320 RETURN
  27. 330 REM =================== chop me to use me ==================
  28. 340 DREG
  29. 350 VARNAME
  30. 360 VARNAME
  31. 370 COPY
  32. 380 RETURN
  33. 40 REM Auld Bastid December 1993
  34. 50 UNKNOWN OP: 0x3A
  35. 60 KEY
  36. 70 VARNAME
  37. 80 VARNAME
  38. 90 VARNAME
  39.